#   Copyright 2013 Stacy Doss stacy.doss@gmail.com
#
#   Licensed under the Apache License, Version 2.0 (the "License");
#   you may not use this file except in compliance with the License.
#   You may obtain a copy of the License at
#
#       http://www.apache.org/licenses/LICENSE-2.0
#
#   Unless required by applicable law or agreed to in writing, software
#   distributed under the License is distributed on an "AS IS" BASIS,
#   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
#   See the License for the specific language governing permissions and
#   limitations under the License.

package DIME::Dlg::File;

our $filetypes = [['Perl Storable Binary', ['.psr']],
                  ['Data::Dumper Dump',    ['.ddd']],
                 ];

sub new {

	my $class  = shift;
	my $parent = shift;
		
	my $T = {
        parent => $parent,
	};

	bless $T, $class;

    $T->frame();

	return $T;
}

sub frame {
    my $self = shift; 
}

sub getOpenFilename {
    my $self = shift;

    return $self->{parent}{menu}{frame}->getOpenFile(-filetypes => $filetypes);
}

sub getSaveFilename {
    my $self = shift;
    
    return $self->{parent}{menu}{frame}->getSaveFile(-filetypes => $filetypes);
}

1;

__END__